<?php

/**
 * CodeRS - Atviras kodas Lietuvai
 * Copyright (C) 2007 CodeRS www.coders.lt info@coders.lt
 * 
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 * 
 * 
 * Ši programa yra laisva. Jūs galite ją platinti ir/arba modifikuoti
 * remdamiesi Free Software Foundation paskelbtomis GNU Bendrosios
 * Viešosios licencijos sąlygomis: 2 licencijos versija, arba (savo
 * nuožiūra) bet kuria vėlesne versija.
 * 
 * Ši programa platinama su viltimi, kad ji bus naudinga, bet BE JOKIOS
 * GARANTIJOS; be jokios numanomos PERKAMUMO ar TINKAMUMO KONKRETIEMS
 * TIKSLAMS garantijos. Žiūrėkite GNU Bendrąją Viešąją licenciją norėdami
 * sužinoti smulkmenas.
 * 
 * Jūs turėjote kartu su šia programa gauti ir GNU Bendrosios Viešosios
 * licencijos kopija; jei ne - rašykite Free Software Foundation, Inc., 59
 * Temple Place - Suite 330, Boston, MA 02111-1307, USA.
**/

//Surašome šventes, jos bus paryškintos kalendoriuje.
//Datas rasykite be nuliu pvz: 3-8 (kovo devinta)
$sventes = array(

	//Valstybinės šventės
	"1-1"		=> array("Naujieji metai","Lietuvos vėliavos diena"),
	"1-13"		=> array("Laisvės gynėjų diena"),
	"2-16"	=> array("Lietuvos valstybės atkūrimo diena"),
	"3-11"	=> array("Lietuvos nepriklausomybės atkūrimo diena"),
	"5-1"		=> array("Tarptautinė darbo diena"),
	"5-4"		=> array("Motinos diena"),
	"6-24"	=> array("Rasos diena","Jonininės"),
	"7-6"		=> array("Valstybės diena","Lietuvos karaliaus Mindaugo karūnavimo diena"),
	"8-15"	=> array("Žolinės"),
	"11-1"	=> array("Visų šventųjų diena"),
	"12-25"	=> array("Kalėdos"),
	"12-26"	=> array("Kalėdos (antra diena)"),
	
	//Lietuvos Respublikos atmintinos dienos
	"8-23"	=> array("Juodojo kaspino diena","Baltijos kelio diena"),
	"8-31"	=> array("Laisvės diena"),
	"9-1"	=> array("Mokslo ir žinių diena"),
	"9-8"	=> array("Šilinė (Švč. Mergelės Marijos gimimo diena)","Vytauto Didžiojo karūnavimo diena"),
	
	//Kitos šventės
	"3-18" => array("FDisk gimtadienis")
);

//Ieskom kieno gimtadieniai
$sql = "SELECT id,nick,gim_data,DAY(gim_data) AS diena FROM `".LENTELES_PRIESAGA."users` WHERE MONTH(gim_data)=MONTH(NOW())";
$sql = mysql_query1($sql);
if (mysql_num_rows($sql)>0) {
	while ($row = mysql_fetch_assoc($sql)) {
		$sventes[date('n')."-".$row['diena']][] = "<b>".$row['nick']."</b> Gimtadienis. ".(amzius($row['gim_data'])+1)."m.";
	}
}
/*
.cal-text {
	color: #FFFFFF;
	font-family: Tahoma, sans-serif;
	font-size: 11px;
	font-weight: bold;
	text-decoration: none;
}
.cal-sel {
	background: #FFFFFF;
	color: #FF0000;
	font-family: Tahoma, sans-serif;
	font-size: 11px;
	font-weight: bold;
	text-decoration: none;
}
.cal_weekday {
	color: #FFFFFF;
	font-family: Tahoma, sans-serif;
	font-size: 11px;
	text-decoration: none;
}
.cal_sun {
	color: #FF0000;
	font-family: Tahoma, sans-serif;
	font-size: 11px;
	text-decoration: none;
}
*/


function kalendorius() {
	global $sventes;
	//gaunam dabartinę datą ir laiką
	$time_dabar = getdate(time());

	//kada prasideda pirma mėnesio diena
	$time_pradzia = getdate(mktime(0,0,0, $time_dabar['mon'], 1, $time_dabar['year']));

	//Kiek šiame mėnesyje yra dienų
	$time_dienu = date("t");

	//Verciam menesio pavadinimus
	$ieskom = array("December","January","February","March","April","May","June","July","August","September","October","November");
	$keiciam = array("Gruodis","Sausis","Vasaris","Kovas","Balandis","Gegužė","Birželis","Liepa","Rugpjūtis","Rugsėjis","Spalis","Lapkritis");
	$time_dabar['month'] = str_replace($ieskom,$keiciam,$time_dabar['month']);

	//Verciam savaitės dienas
	$ieskom = array("Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday");
	$keiciam = array("Pirmadienis","Antradienis","Trečiadienis","Ketvirtadienis","Penktadienis","Šeštadienis","Sekmadienis");
	$time_dabar['weekday'] = str_replace($ieskom,$keiciam,$time_dabar['weekday']);

	//Formuojame kalendoriaus lentele
	$return = '<table width="100%" border="0" cellpadding="0" cellspacing="0">
	  <tr>
		 <th colspan="7" align="center">'.$time_dabar['year']. " ".$time_dabar['month'].' '.$time_dabar['mday'].'d. <br/>'.$time_dabar['weekday'].'</th>
	  </tr>
	  <tr class="header1_cal">
		 <th>P</th>
		 <th>A</th>
		 <th>T</th>
		 <th>K</th>
		 <th>P</th>
		 <th>Š</th>
		 <th>S</th>
	  </tr>
	';
	$a=0;$b=0;
	for ($i = 0;$i <= 4; $i++) {	//Sukam tiek kartu kiek savaiciu menesyje = max 5
		$return .= "  <tr align='center'>\n";
		
		//Sukam ciklą tiek kartų kiek dienų savaitėje = 7
		for ($j = 1; $j <= 7; $j++) {	
			
			//Skaiciuojam kiek kartu prasisuko visi ciklai
			$a++;
			
			//Jei priejom šio mėnesio pirmą dieną pradedam braižyti kalendoriaus dienas
			$time_num = ($a >= $time_pradzia['wday']?++$b:false);

			$return .= "\t<td class";
			
			//Jei diena yra šiandiena
			if ($time_dabar['mday'] == $time_num) { $return .= "='cal-sel'"; } else { $return .= "='cal_weekday'"; }
			
			$return .= " style='";
			//Jei tai yra savaitgalis
			if ($j == 6 || $j == 7) { $return .= "background-color:#ffdddd;"; }
			
			//Jei diena turi švenčių
			$svente = svente($sventes,"".$time_dabar['mon']."-".$time_num."");
			if (!empty($svente)) { $return .= "color:red;cursor: pointer;' title=\"header=[Šią dieną švenčiame] body=[<br/>".$svente."<br/><br/>] fade=[on]\">"; } else { $return .= "'>"; }
			
			//Tikrinam ar mėnesio dienos nesibaigė, kitu atveju atspauzdinam tarpą
			if ($time_num && $time_num <= $time_dienu) { $return .= $time_num; } else { $return .= "&nbsp;"; }
			
			$return .= "</td>\n";
		}
		$return .= "  </tr>\n";
	}

	//Atspauzdinam kalendorių ir užbaigiam lentelę
	$return .= "</table>";	
	return $return;
}

function svente($array,$siandien='',$return='') {
	
	//Gauname šiandienos (mėnesis-diena)
	if (!$siandien) { $siandien = date('n-j'); }

	//Tikriname ar švenčių masyve nurodyta diena egzistuoja
	if (array_key_exists($siandien,$array)) { 
		foreach ($array[$siandien] as $key => $val) {
			if (empty($return)) { $return .= $val; }	//Jei išvedam šventę pirmą kartą
			else { $return .= ", <br />".$val; }		//Išvedame daugiau nei vieną šventę, atskiriame kableliais
		}
	}
	return $return;
}

$title = "Kalendorius";
$text = "<blockquote>".kalendorius()."</blockquote>";
?>